home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat115 / dikomot.install < prev    next >
Text File  |  1995-11-22  |  4KB  |  149 lines
  1.  
  2. IF exists ram:tempo
  3.    Echo "Ram:tempo existe...!"
  4.    Quit
  5. ENDIF
  6.  
  7.  
  8. resident sys:c/copy force
  9. Copy LHarc ram:
  10. Set OldCd `Cd`
  11. Failat 21
  12. Cd >NIL: /
  13. Cd >NIL: /
  14. Cd >NIL: /
  15. Failat 10
  16. Set tvx `Cd`
  17. Cd Ram:
  18.  
  19. IF exists LHarc
  20.    LHarc -m e `Get oldCd`DikoMot.Lharc
  21. ELSE
  22.    LLSC:LHarc -m e `Get oldCd`DikoMot.Lharc
  23. ENDIF
  24.  
  25. Copy "Sys:utilities.info" "Ram:Tempo/"
  26. Copy "Sys:C/Run" "Ram:Tempo/C/"
  27. Copy "Sys:C/Else" "Ram:Tempo/C/"
  28. Copy "Sys:C/Ed" "Ram:Tempo/C/"
  29. Copy "Sys:C/Delete" "Ram:Tempo/C/"
  30. Copy "Sys:C/type" "Ram:Tempo/C/"
  31. Copy "Sys:C/endcli" "Ram:Tempo/C/"
  32. Copy "Sys:C/Rename" "Ram:Tempo/C/"
  33. Copy "Sys:C/Dir" "Ram:Tempo/C/"
  34. Copy "Sys:C/failat" "Ram:Tempo/C/"
  35. Copy "Sys:C/Execute" "Ram:Tempo/C/"
  36. Copy "Sys:C/copy" "Ram:Tempo/C/"
  37. Copy "Sys:C/makedir" "Ram:Tempo/C/"
  38. Copy "Sys:C/list" "Ram:Tempo/C/"
  39. Copy "Sys:C/cd" "Ram:Tempo/C/"
  40. Copy "Sys:C/date" "Ram:Tempo/C/"
  41. Copy "Sys:C/endif" "Ram:Tempo/C/"
  42. Copy "Sys:C/if" "Ram:Tempo/C/"
  43. Copy "Sys:C/loadWB" "Ram:Tempo/C/"
  44. Copy "Sys:C/SetClock" "Ram:Tempo/C/"
  45. Copy "Sys:SYSTEM/SetMap" "Ram:Tempo/SYSTEM/"
  46. Copy "Sys:SYSTEM/Format" "Ram:Tempo/SYSTEM/"
  47. Copy "Sys:SYSTEM/CLi" "Ram:Tempo/SYSTEM/"
  48. Copy "Sys:SYSTEM/Diskcopy" "Ram:Tempo/SYSTEM/"
  49. Copy "Sys:SYSTEM/noFastMem" "Ram:Tempo/SYSTEM/"
  50. Copy "Sys:L/port-handler" "Ram:Tempo/L/"
  51. Copy "Sys:DEVS/serial.device" "Ram:Tempo/DEVS/"
  52. Copy "Sys:DEVS/parallel.device" "Ram:Tempo/DEVS/"
  53. Copy "Sys:DEVS/system-configuration" "Ram:Tempo/DEVS/"
  54. Copy "Sys:DEVS/keymaps/f" "Ram:Tempo/DEVS/keymaps/"
  55. Copy "Sys:LIBS/mathieeedoubbas.library" "Ram:Tempo/LIBS/"
  56. Copy "Sys:LIBS/version.library" "Ram:Tempo/LIBS/"
  57. Copy "Sys:LIBS/diskfont.library" "Ram:Tempo/LIBS/"
  58. Copy "Sys:LIBS/mathieeedoubtrans.library" "Ram:Tempo/LIBS/"
  59. Copy "Sys:UTILITIES/more" "Ram:Tempo/UTILITIES/"
  60. Copy "Sys:UTILITIES/More.info" "Ram:Tempo/UTILITIES/"
  61.  
  62. Echo ""
  63. Echo "Les *"objets non trouvé*" (éventuellement ci-dessus) sont sans" 
  64. Echo "conséquences s'ils correspondent à des commandes résidentes."
  65.  
  66.  
  67. IF exists tempo/lib.llsc/requete
  68.    Copy tempo/lib.llsc/requete ram:
  69.    tempo/lib.llsc/requete 0 " Création de DikoMot dans un : " " Disque en Df0: | Tiroir en RAM: " 
  70.    IF $RC EQ 0
  71.       IF exists ram:DikoMot
  72.          Rename ram:DikoMot as ram:DikoMot.bkk
  73.       endif
  74.       Rename ram:tempo as ram:DikoMot
  75.       Copy Sys:system.info ram:DikoMot.info
  76.       Skip finir
  77.    ENDIF
  78. else
  79.    Echo "Pas trouvé tempo/lib.llsc/requete"
  80.    Wait 2 sec
  81.    skip quitte
  82. endif
  83.  
  84. Cd Df0:
  85. Set df0 `Cd`
  86. Cd RAM:
  87. IF $tvx EQ $df0
  88.    tempo/lib.llsc/requete 0 " Le disque en Df0: est $df0 ! " " Continuer "
  89. endif
  90.  
  91. list >ram:testyuiop df0: DIRS
  92. setenv ram:ttyuiop `search ram:testyuiop "is empty"`
  93. if not exists ram:ttyuiop
  94.    Echo ""
  95.    Echo "Formatage...en cours"
  96.    Failat 21
  97.    Lab refaire
  98.    SYS:SYSTEM/Format <NIL: >NIL: DRIVE DF0: NAME DikoMot NOICONS
  99.    Set erreur $Result2
  100.    If $erreur GT 0 VAL
  101.       IF $Erreur EQ 214 VAL
  102.           tempo/LIB.LLSC/Requete 0 " Le disque destination est protégé! " " Refaire | Quitter "
  103.           Set action $RC
  104.       else
  105.           IF $Erreur EQ 226 VAL
  106.              tempo/LIB.LLSC/Requete 0 " Pas de disque destination dans le lecteur! " " Refaire | Quitter "
  107.              Set action $RC
  108.           else
  109.              tempo/LIB.LLSC/Requete 0 "Interruption Format sur erreur N°:$Erreur " " Refaire | Quitter "
  110.              Set action $RC
  111.           endif
  112.       endif
  113.       IF $action EQ 1
  114.          Skip refaire back
  115.       else
  116.          Skip quitte
  117.       endif
  118.    endif
  119. else
  120.    Delete >NIL: ram:(testyuiop|ttyuiop)
  121. endif
  122.  
  123.  
  124. Echo ""
  125. Copy tempo df0: ALL
  126.  
  127. if exists df0:s/Startup-Sequence
  128.    Install df0:
  129. endif
  130.  
  131. Protect >NIL: ram:tempo/#? rwed all
  132. Delete >NIL: ram:tempo ALL
  133.  
  134.  
  135. Lab finir
  136. ram:Requete 0 " ****** Installation DikoMot terminé ****** " " Vu... "
  137.  
  138. Lab quitte
  139. Delete >NIL: ram:(LHarc|Requete)
  140. Unset tvx
  141. Unset df0
  142. Unset oldCd
  143. unset erreur
  144. unset action
  145.  
  146. Wait 2 sec
  147. Run <NIL: >NIL: wait 3 sec +
  148. Delete ram:Command-00-T#?
  149.